home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib3 / v_03_02 / 3n02064a < prev    next >
Encoding:
Text File  |  1995-11-01  |  402 b   |  20 lines
  1. {*
  2.  * view a set as a byte array
  3.  *}
  4. type
  5.     month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG,
  6.         SEP, OCT, NOV, DEC);
  7.     month_set = set of month;
  8.     byte_array = array [0 .. sizeof(month_set)-1]
  9.         of byte;
  10. var
  11.     thirty_days : month_set;
  12.     p : ^byte_array;
  13.     i : integer;
  14. begin
  15. thirty_days := [APR, JUN, SEP, NOV];
  16. p := addr(thirty_days);
  17. for i := 0 to sizeof(p^)-1 do
  18.     writeln(p^[i]:2);
  19. end.
  20.